Dim password, password1
password1 = "admin"
For i = 0 To 2
password = InputBox("Please input the password")
if password = password1 Then
msgbox("The password is right!")
exit for
else
msgbox("The password is wrong!")
end if
Next